"! Info:
A subclass of robot that adds drawing functionality.
Examples:

"
Robot subclass: DrawingRobot [
<category: 'Library-Hardware'>
"! "
draw: shape [
shape drawWith: self.
]

"! Info:
Set the colour of the drawing pen. Takes a Colour object as argument.
Examples:
|col|
col := Colour red.
self penColour: col.
"
penColour: colour [
<setPenColour (colour red) (colour green) (colour blue)>
]

"! Info:
Put the pen down, so when the robot moves, it draws a line
Examples:
self penDown.
"
penDown [
<setPenState 1>
]

"! Info:
Lift then pen up, so when the robot moves it doesn't draw a line.
Examples:
self penUp.
"
penUp [
<setPenState 0>
]

"! "
penWidth: width [
<setPenStyle width>
]

]

"! "
MetaRobot subclass: MetaDrawingRobot [
"! "
new [
|r|
r := super new.
r penDown.
r penWidth: 2.
^ r.
]

]

